10 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
11 A$=A$+A$+A$+A$
45 REM *** RESET THE PRINTER CONTROL REGISTERS FOR NORMAL TYPE
50 LPRINT CHR$(27);"F";CHR$(27);"H";CHR$(24)
51 INPUT;"SET PRINTER PAPER FOR NEW PAGE AND RETURN",B$
94 REM *** PRINT HEADER IN NORMAL TYPE AT DOUBLE WIDTH IN EMPHASIZED MODE
95 LPRINT CHR$(14);CHR$(27);"E";"   IBM PRINTER TYPE STYLES AVAILABLE"
99 REM *** RETURN TO NORMAL WIDTH AND NORMAL TYPE WEIGHT
100 LPRINT CHR$(27);"F"
105 LPRINT " "
110 LPRINT "80 CHARACTERS/LINE - NORMAL TYPE (PRINTER DEFAULT)"
111 LPRINT "     ";LEFT$(A$,75)
120 REM *** INITIATE DOUBLE STRIKE MODE
122 LPRINT CHR$(27);"G"
124 LPRINT "80 CHARACTERS/LINE - DOUBLE STRIKE MODE (NORMAL TYPE)"
126 LPRINT "     ";LEFT$(A$,75)
127 REM *** END DOUBLE STRIKE MODE AND INITIATE EMPHASIZED MODE
128 LPRINT CHR$(27);"E";CHR$(27);"H"
130 LPRINT "80 CHARACTERS/LINE - EMPHASIZED MODE (NORMAL TYPE)"
140 LPRINT "     ";LEFT$(A$,75)
164 REM *** INITIATE DOUBLE STRIKE MODE WITH EMPHASIZED MODE
165 LPRINT CHR$(27);"G"
170 LPRINT "80 CHARACTERS/LINE - DOUBLE STRIKE/EMPHASIZED MODE (NORMAL TYPE)"
180 LPRINT "     ";LEFT$(A$,75)
190 BAR$=STRING$(79,"=")
194 REM *** RETURN TO NORMAL TYPE WITHOUT DOUBLE STRIKE OR EMPHASIZE
195 LPRINT CHR$(27);"F";LEFT$(BAR$,80)
200 LPRINT " "
205 REM *** INITIATE DOUBLE WIDTH MODE (NOTE: REQUIRED FOR EACH LINE!!!)
210 LPRINT CHR$(14);"40 CHAR/LINE - DOUBLE WIDTH(NORMAL TYPE)"
220 LPRINT CHR$(14);"     ";LEFT$(A$,35)
225 REM *** INITIATE DOUBLE STRIKE WITH DOUBLE WIDTH MODE (NORMAL TYPE)
230 LPRINT CHR$(27);"G"
240 LPRINT CHR$(14);"40 CHAR/LINE - DOUBLE STRIKE (2X WIDTH)"
250 LPRINT CHR$(14);"     ";LEFT$(A$,35)
255 REM *** INITIATE EMPHASIZE MODE AND ELIMINATE DOUBLE STRIKE
260 LPRINT CHR$(27);"E";CHR$(27);"H"
270 LPRINT CHR$(14);"40 CHAR/LINE - EMPHASIZED (2X WIDTH)"
280 LPRINT CHR$(14);"     ";LEFT$(A$,35)
285 REM *** INITIATE DOUBLE STRIKE MODE WITH CONTINUED EMPHASIZED MODE
290 LPRINT CHR$(27);"G"
300 LPRINT CHR$(14);"40 CHAR/LINE -2X STRIKE/WID.(EMPHASIZED)"
310 LPRINT CHR$(14);"     ";LEFT$(A$,35)
315 REM *** RETURN TO NORMAL MODES
320 LPRINT CHR$(27);"F";LEFT$(BAR$,80)
395 REM *** INITIATE CONDENSED TYPE MODE (REMAINS UNTIL CHANGED TO NORMAL)
400 LPRINT CHR$(15)
410 LPRINT "132 CHARACTERS/LINE - CONDENSED TYPE"
411 LPRINT "     "+LEFT$(A$,75)
420 REM *** INITIATE DOUBLE STRIKE MODE (CONDENSED TYPE)
421 LPRINT CHR$(27);"G"
430 LPRINT "132 CHARACTERS/LINE - DOUBLE STRIKE MODE (CONDENSED TYPE)"
440 LPRINT "     "+LEFT$(A$,75)
445 REM *** RETURN TO NORMAL MODE AND STOP DOUBLE STRIKE
450 LPRINT CHR$(18);LEFT$(BAR$,80)
455 REM *** INITIATE CONDENSED TYPE MODE
500 LPRINT CHR$(15)
505 REM *** INITIATE DOUBLE WIDTH MODE FOR CONDENSED TYPE MODE
510 LPRINT CHR$(14);"66 CHARACTERS/LINE - DOUBLE WIDTH (CONDENSED TYPE)"
511 LPRINT CHR$(14);"     "+LEFT$(A$,59)
520 REM *** INITIATE DOUBLE STRIKE MODE FOR DOUBLE WIDTH CONDENSED TYPE
521 LPRINT CHR$(27);"G"
522 LPRINT CHR$(14);"66 CHARACTERS/LINE - DOUBLE STRIKE/DOUBLE WIDTH (CONDENSED TYPE)"
523 LPRINT CHR$(14);"     "+LEFT$(A$,59)
524 REM *** RETURN TO NORMAL MODE
525 LPRINT CHR$(18);LEFT$(BAR$,80)
530 LPRINT CHR$(24);CHR$(27);"H"
